home *** CD-ROM | disk | FTP | other *** search
- %case uses%
- %case instance%
- %itemname%:% %CButton;
- %case create%
-
- New (%itemname%);
- %itemname%.IButton (%cntlID%, enclosure, supervisor);
- %case itemNr%
- %DefineItem%
- %case dialog field%
- %Enable?%
- %case init field%
- %Enable?%
- %case auxiliary%
- %if OK%
- %elsif Cancel%
- %else%
- {----------}
- Procedure Do%Itemname%;
- Begin
- End; {Do%Itemname%}
-
- %end if%
- %case filter%
- %case set%
- %case enable%
- %Enable?%
- %case hit%
- %if OK%
- %Itemname%: begin
- result := true;
- done := true;
- end;
- %elsif Cancel%
- %Itemname%: begin
- result := false;
- done := true;
- end;
- %else%
- %Itemname%: begin
- Do%Itemname%;
- end;
- %end if%
- %case finish%
-